(hi-lock-unface-buffer): Show a x-menu only if the mouse was used.

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 522a50b9a7fce4b5db3f6da5df7d8f5e559ea25d..b5e62e7a90947442ce45552820a55526138d4ff2 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -462,7 +462,7 @@ interactive functions.  \(See `hi-lock-interactive-patterns'.\)
 \\<minibuffer-local-must-match-map>Use \\[minibuffer-complete] to complete a partially typed regexp.
 \(See info node `Minibuffer History'.\)"
   (interactive
-   (if (and (display-popup-menus-p) (vectorp (this-command-keys)))
+   (if (and (display-popup-menus-p) (not last-nonmenu-event))
        (catch 'snafu
         (or
          (x-popup-menu